home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 37 / Amiga Format CD37 (1999-02-16)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-03].iso / +system+ / tools / expert / libguide / checkyourlibraries < prev    next >
Text File  |  1998-12-15  |  2KB  |  69 lines
  1. ; CheckYourLibs V2.01
  2. ; © 10/1998 by Michaela Prüß & Heiko Schröder
  3. ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
  4.  
  5.  
  6. Echo "Library-Check at your systemV2.01 © Michaela Prüß & Heiko Schröder 11/98"
  7. Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
  8. Ask "Do you want to check your system for libraries? (Y/N)"
  9. If NOT WARN=5
  10.    Echo "CANCEL ..."
  11.    C:Quit
  12. EndIf 
  13.  
  14. C:FailAt 100
  15. C:Copy DVC RAM:
  16. C:Copy C:Search RAM:
  17. C:Copy Scripts/LibList.dvc RAM:
  18. C:Copy MyCheck RAM:
  19. C:Copy MyCheck.rexx RAM:
  20. C:Copy MyConvert.rexx RAM:
  21.  
  22. Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
  23. Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
  24. Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
  25. Echo "For LibGuide I scan infos about your system:" >>Ram:lib-NewList
  26. Version >>Ram:Lib-NewList
  27. C:CPU >>Ram:Lib-NewList
  28.  
  29. Echo "Starting Rexx"
  30. Sys:System/RexxMast >NIL:
  31.  
  32. Echo "Looking for Libs:#?.library"
  33. C:List Libs: PAT=#?.library~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
  34.  
  35. Sort Ram:List1 Ram:List1
  36.  
  37. Echo "Starting Check..."
  38. Protect MyCheck +s
  39. Execute Ram:List1
  40. Echo "*N*NREADY!*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
  41. Echo "Please send me the RAM:Lib-NewList for updating the Libraries.guide.*N"
  42. Delete Ram:List1 QUIET
  43. Delete Ram:DVC QUIET
  44. Delete Ram:Search QUIET
  45. Delete Ram:LibList.dvc QUIET
  46. Delete Ram:MyCheck QUIET
  47. Delete Ram:MyCheck.rexx QUIET
  48. Delete Ram:MyConvert.rexx QUIET
  49.  
  50. Ask "Please press ENTER for next Step."
  51. C:CLS
  52.  
  53. ; Library Online Update Generating Script
  54.  
  55. Echo "Online Library Update Form Generator 1.0*N© 10/98 by Heiko Schröder*N"
  56. Ask "Next Step... *NDo you want to create a Form for updating libraries online at http://www.amigasystem.org? (Y/N)"
  57. If NOT WARN=5
  58.    Echo "CANCEL ..."
  59.    Delete Ram:Lib-OnlineUpdate QUIET
  60.    C:Quit
  61. EndIf
  62. Echo "Generating Form..."
  63. rx MyOnlineUpdate.rexx
  64.  
  65. Delete Ram:Lib-OnlineUpdate QUIET
  66. Echo "Ready. Please load RAM:Lib-OnlineUpdate.html in your browser and follow the instructions."
  67. Ask "*NPress ENTER to end..."
  68. Wait 2 secs
  69.